home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / assets / game.dir / 00037_Script_victory class < prev    next >
Text File  |  1997-08-08  |  2KB  |  111 lines
  1. -- victory class
  2.  
  3. property ancestor
  4. property player
  5. property mode
  6.  
  7. global gplayer, ggame, gscore
  8.  
  9. -- ==================================================
  10. -- new method
  11. -- --------------------------------------------------
  12. on new me, theancestor
  13.   
  14.   minit me, theancestor
  15.   return me
  16.   
  17. end new 
  18.  
  19. -- ==================================================
  20. -- minit method
  21. -- --------------------------------------------------
  22. on minit me, theancestor
  23.   
  24.   --  put "in minit victory"
  25.   
  26.   set ancestor = theancestor
  27.   
  28.   --  put "out minit victory"
  29.   
  30. end minit me
  31.  
  32. -- ==================================================
  33. -- mvictory method
  34. -- --------------------------------------------------
  35. on mvictory me
  36.   
  37.   --  put "in mvictory victory"
  38.   
  39.   set the callback of me = me
  40.   set player = gplayer
  41.   set gplayer = me
  42.   set the callback of me = me
  43.   set mode = #waiting
  44.   
  45.   --  put "out mvictory victory"
  46.   
  47. end mvictory 
  48.  
  49. -- ==================================================
  50. -- manimfinish method
  51. -- --------------------------------------------------
  52. on manimfinish me
  53.   
  54.   --  put "in manimfinish victory", mode
  55.   
  56.   mmovefinish ancestor
  57.   
  58.   case mode of
  59.     #waiting:
  60.       set move = mkeytomove ( me, #victory )
  61.       msetcurrentmove me, move
  62.       set mode = #playing
  63.     #playing: 
  64.       mfinish me
  65.       set mode = #none
  66.   end case
  67.   
  68.   --  put "out manimfinish victory"
  69.   
  70. end manimfinish me
  71.  
  72. -- ==================================================
  73. -- mfinish method
  74. -- --------------------------------------------------
  75. on mfinish me
  76.   
  77.   --  put "in mfinish victory"
  78.   
  79.   set gplayer = player
  80.   set player = 0
  81.   
  82.   mabort ancestor
  83.   
  84.   mfinishscreen ggame
  85.   
  86.   --  put "out mfinish victory"
  87.   
  88. end mfinish
  89.  
  90. -- ==================================================
  91. -- mkeydown method
  92. -- --------------------------------------------------
  93. on mkeydown me
  94.   
  95.   --  put "in mkeydown victory"
  96.   
  97.   --  put "out mkeydown victory"
  98.   
  99. end mkeydown
  100.  
  101. -- ==================================================
  102. -- mjoystick method
  103. -- --------------------------------------------------
  104. on mjoystick me
  105.   
  106.   --  put "in mjoystick victory"
  107.   
  108.   --  put "out mjoystick victory"
  109.   
  110. end mjoystick 
  111.